home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / pc / pb / profile.dir / 00267_Script_kf utils < prev    next >
Text File  |  1997-07-29  |  719b  |  17 lines
  1. on membAttrSet memberType, attribute, state -- prs 20
  2.   if voidP(memberType) then ¼
  3. put "example: membAttrSet #field, ""e&"editable""e&", FALSE"
  4.   set ttlCastlibs = the number of castlibs
  5.   repeat with i = 1 to ttlCastlibs
  6.     set ttlMembs = the number of members of castlib i
  7.     set t = 0
  8.     repeat with j = 1 to ttlMembs
  9.       if the type of member j of castlib i = memberType then
  10.         do "set the " & attribute & " of member " &  j & " of castlib " & i & " to " & state
  11.         set t = t + 1
  12.       end if
  13.     end repeat
  14.     put t && memberType && "members set to" && attribute && "=" && state && "in castlib" && quote & the name of castlib i & quote
  15.   end repeat
  16.   -- by kf 11/19/96
  17. end